home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / cdrom / chron112.zip / FLYER.PS < prev    next >
Text File  |  1994-03-13  |  21KB  |  431 lines
  1. %!PS-Adobe-3.0 EPSF-2.0
  2. %%Creator: Windows PSCRIPT
  3. %%Title: Ami Pro - FLYER11.SAM
  4. %%BoundingBox: 0 0 612 792
  5. %%DocumentNeededResources: (atend)
  6. %%DocumentSuppliedResources: (atend)
  7. %%Pages: 0
  8. %%BeginResource: procset Win35Dict 3 1
  9. /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72
  10. mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr
  11. /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld
  12. /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix
  13. ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc
  14. /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false
  15. def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq
  16. and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd
  17. /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{
  18. /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM
  19. matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE
  20. matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix
  21. dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{
  22. /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave
  23. showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string
  24. def/FEglyph(G  )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch
  25. putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed
  26. /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch
  27. 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP
  28. cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90
  29. rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg
  30. add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes
  31. div dup scale 0 0 transform .25 add round .25 sub exch .25 add round
  32. .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false
  33. def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[
  34. 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve
  35. 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut
  36. 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave
  37. 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85
  38. /ellipsis 16#86/dagger 16#87/daggerdbl 16#89/perthousand 16#8A/Scaron
  39. 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93
  40. /quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97
  41. /emdash 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe
  42. 16#9F/Ydieresis 16#A0/space 16#A4/currency 16#A6/brokenbar 16#A7/section
  43. 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft
  44. 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree
  45. 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5
  46. /mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior
  47. 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf
  48. 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2
  49. /Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7
  50. /Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA/Ecircumflex 16#CB/Edieresis
  51. 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth
  52. 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4/Ocircumflex 16#D5/Otilde
  53. 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute
  54. 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls
  55. 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis
  56. 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8/egrave 16#E9/eacute 16#EA
  57. /ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex
  58. 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4
  59. /ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash
  60. 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute
  61. 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict
  62. /CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if
  63. newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0/degree IsChar{
  64. /degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{
  65. /bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname
  66. ed FontDirectory newfontname known not{/basefontdict basefontname findfont
  67. def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID
  68. ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch
  69. newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont/FontName
  70. newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for
  71. ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB
  72. newfontname newfont definefont pop}if newfontname end}bd/SB{FC/ULlen
  73. ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed/dxGdi ed
  74. /y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1
  75. mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul
  76. cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed
  77. /dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra
  78. dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break
  79. add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0
  80. y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL
  81. sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed
  82. 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0
  83. div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc
  84. esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform
  85. /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE
  86. rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE
  87. mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition
  88. known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get
  89. 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform
  90. /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness
  91. known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get
  92. 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy
  93. lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat
  94. 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin
  95. /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16]
  96. def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16
  97. setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{
  98. /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup
  99. 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index
  100. put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont
  101. definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch
  102. show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w
  103. Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup
  104. rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w
  105. X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup
  106. neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox
  107. AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round
  108. def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if
  109. dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft
  110. ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536
  111. and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm
  112. 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes
  113. 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div
  114. PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if
  115. iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen
  116. 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0
  117. setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd
  118. /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy
  119. div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm
  120. pop tr AG m sm}def/P{m cm pop tr 0 0 M A